unit con_ResumoAtividade;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Formulario_Padrao_Consulta, StdCtrls, Buttons, ExtCtrls, Mask, ToolEdit,
  Grids, DBGrids, dbtables, db;

type
  TFrmCon_ResAtividades = class(TFrmConsulta)
    DBGrid1: TDBGrid;
    EdtData: TDateEdit;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure BtnFecharClick(Sender: TObject);
    procedure EdtDataKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    XResAtiv_numero : string;
    procedure fazConsulta;
  end;

var
  FrmCon_ResAtividades: TFrmCon_ResAtividades;

implementation

uses clsResumoAtividade,dm,biblio;

var ResumoAtividade: TResumoAtividade;
    tq             : TQuery;
    tds            : TDataSource;

{$R *.DFM}

procedure TFrmCon_ResAtividades.fazConsulta;
begin
 ResumoAtividade.Consultar(EdtData.Date,tq);
 tq.open;
 DBGrid1.Refresh;
end;

procedure TFrmCon_ResAtividades.FormActivate(Sender: TObject);
begin
  inherited;
 tq.DatabaseName   := dmint.db.DatabaseName;
 tds.DataSet       := tq;
 DBGrid1.DataSource:= tds;
 FazConsulta;
 EdtData.SetFocus;
end;

procedure TFrmCon_ResAtividades.BtnFecharClick(Sender: TObject);
begin
 XResAtiv_numero:= tq.fieldbyname('resAtiv_Numero').AsString;
 inherited;
end;

procedure TFrmCon_ResAtividades.EdtDataKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
 if key=12 then fazconsulta;
end;

procedure TFrmCon_ResAtividades.FormCreate(Sender: TObject);
begin
  inherited;
 tq             := TQuery.create(self);
 tds            := tdatasource.Create(self);
 ResumoAtividade:= TResumoAtividade.Create;
end;

procedure TFrmCon_ResAtividades.FormDestroy(Sender: TObject);
begin
  inherited;
 tq.free;
 tds.free;
 ResumoAtividade.free;
end;

end.
